home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / FORTH Folder / Text files / rw.4th < prev    next >
Encoding:
Text File  |  1984-06-29  |  734 b   |  20 lines  |  [TEXT/ttxt]
  1.  
  2.   ****MACHINE CODE IS FROM   DSKDMP BY R. H. NICHOLSON****
  3.  ( SECTOR-R/W [ BUFF, SECTOR, 0=WRITE OR 1=READ - RESULT ]     )
  4.   CREATE (SECTOR-R/W)     HEX 
  5.  41FA W, 001E W, 2278 W, 011C W,
  6.  2269 W, 0010 W, 2251 W, 4280 W, A002 W,
  7.  41FA W, 000A W, 3080 W, 4E75 W, 7268 W, 6E00 W, 0 W, 
  8.    0 W, 0 W, 5 W, A002 W,          0 W, 0 W, 0 W, 0 W, 
  9.   1 W, 0 W, 0 W, 1 W,             FFFB W, 8 W, 1 W, FF02 W,
  10.  1 W, 3000 W, 0 W, 200 W,        0 W, 0 W, 1 W, 0 W, 0 W,
  11.  : SECTOR-R/W ( BUFF, SECTOR , 0=WRITE -  RESULT ) 
  12.      IF A002 ELSE A003 THEN [ DECIMAL ] DUP (SECTOR-R/W) 
  13.      16 + W! (SECTOR-R/W) 38 + W! 512 *
  14.       (SECTOR-R/W) 78 + ! (SECTOR-R/W) 64 + ! (SECTOR-R/W) >JSR 
  15.       (SECTOR-R/W) 30 + W@ ;
  16. ?
  17. ?
  18.  
  19.  
  20. Press ENTER to continue: